home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Menu.Dxr / 00010_soundLevel popup button.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  1.4 KB  |  46 lines
  1. global currSndVolume
  2.  
  3. on mouseDown
  4.   set newVolume to currSndVolume
  5.   set soundButton to 40
  6.   puppetSprite(soundButton, 1)
  7.   set the member of sprite soundButton to member ("sound" && currSndVolume)
  8.   updateStage()
  9.   set testBottom to the bottom of sprite soundButton - 25
  10.   set testTop to the top of sprite soundButton + 1
  11.   set testLength to testBottom - testTop
  12.   set testInterval to testLength / 8.0
  13.   repeat while the mouseDown
  14.     if (the mouseV < testBottom) and (the mouseV > testTop) then
  15.       set testPoint to testBottom - the mouseV
  16.       case 1 of
  17.         (testPoint > (testInterval * 7)):
  18.           set newVolume to 7
  19.         (testPoint > (testInterval * 6)):
  20.           set newVolume to 6
  21.         (testPoint > (testInterval * 5)):
  22.           set newVolume to 5
  23.         (testPoint > (testInterval * 4)):
  24.           set newVolume to 4
  25.         (testPoint > (testInterval * 3)):
  26.           set newVolume to 3
  27.         (testPoint > (testInterval * 2)):
  28.           set newVolume to 2
  29.         (testPoint > (testInterval * 1)):
  30.           set newVolume to 1
  31.         otherwise:
  32.           set newVolume to 0
  33.       end case
  34.       set the member of sprite soundButton to member ("sound" && newVolume)
  35.       updateStage()
  36.     end if
  37.   end repeat
  38.   puppetSprite(soundButton, 0)
  39.   if rollOver(soundButton) then
  40.     if newVolume <> currSndVolume then
  41.       set currSndVolume to newVolume
  42.       set the soundLevel to currSndVolume
  43.     end if
  44.   end if
  45. end
  46.